home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib16.dsk
/
EIGHT ALIEN SHIPS.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
16 lines
1 REM REQUIRES BLOCK ROUTINES $908B AND BLOCK SHAPE #144
5 YINCR = 2:HR = 3:HL = 1: REM SET YINCR/SET LEFTMOST SHAPE
10 HGR2 : CALL 37799: POKE 251,144
15 POKE 252,6: POKE 253,17: FOR X = 1 TO 8: REM SET VT/VB-START LOOP
20 POKE 254,HR: POKE 255,HL: CALL 37679: REM SET HR/HL-DRAW A SHAPE
25 HR = HR +5:HL = HL +5: NEXT : REM MOVE OVER FOR NEXT SHAPE
35 POKE 227,YINCR: REM SET YINCR
50 FOR Y = 1 TO 170/YINCR: REM SET # OF MOVES DOWN
55 HR = 3:HL = 1: POKE 254,HR: POKE 255,HL: FOR X = 1 TO 8: REM RESET HR/HL-START MOVE LOOP
60 CALL 37003: CALL 37470: REM MOVE SHAPE DOWN-RESTORE VT/VB UP
65 HR = HR +5:HL = HL +5: POKE 254,HR: POKE 255,HL: NEXT X: CALL 37485: NEXT Y: REM MOVE TO NEXT SHAPE-RESET VT/VB FOR NEXT SHAPE
75 FOR Y = 1 TO 170/YINCR: REM SET # OF MOVES UP
80 HR = 3:HL = 1: POKE 254,HR: POKE 255,HL: FOR X = 1 TO 8: REM RESET HR/HL-START MOVE LOOP
85 CALL 37065: CALL 37485: REM MOVE SHAPE UP-RESTORE VT/VB-DOWN
90 HR = HR +5:HL = HL +5: POKE 254,HR: POKE 255,HL: NEXT X: CALL 37470: NEXT Y: REM MOVE TO NEXT SHAPE-RESET VT/VB FOR NEXT SHAPE
95 GOTO 50: REM START ALL OVER